Найти сумму целых положительных чисел, больших 30 и меньших 100, кратных трем и оканчивающихся на 2, 4 или 8 — Pascal(Паскаль)

var
s,n,i,r:integer;
begin
for i:=31 to 99 do begin
if i mod 3 = 0 then
if (i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8)
then s:=s+i;
end;
writeln(s);
end.